home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok08.lha / CreateAmokDisk1.1 / AmokIcons / AmokDir.mod < prev    next >
Text File  |  1993-08-15  |  8KB  |  143 lines
  1.           (* -------> IMPLEMENTATION MODULE <-------- *)
  2.  
  3. IMPLEMENTATION MODULE AmokDir;
  4.  
  5. FROM SYSTEM IMPORT      WORD;
  6.  
  7. FROM Heap IMPORT        AllocMem;
  8.  
  9. VAR     i   :INTEGER;
  10.  
  11.  
  12.  
  13. BEGIN   (* MAIN *)
  14.  
  15. FOR i:=0 TO   1  DO
  16.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  17. END;
  18.  
  19. Imgwidth := 61;
  20. Imgheight:= 25;
  21. Imgdepth :=  2;
  22.  
  23.  
  24.  
  25. WITH ImgPtr[Dir]^ DO         (* Dir *)
  26.  
  27.   (* Plane 1 *)
  28.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  29.  Dat[  4]:=0000FH; Dat[  5]:=0F800H; Dat[  6]:=00000H; Dat[  7]:=00000H;
  30.  Dat[  8]:=0003FH; Dat[  9]:=0BE00H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;
  31.  Dat[ 12]:=0003FH; Dat[ 13]:=09E00H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  32.  Dat[ 16]:=0003FH; Dat[ 17]:=0AE00H; Dat[ 18]:=00000H; Dat[ 19]:=00000H;
  33.  Dat[ 20]:=00001H; Dat[ 21]:=0BE00H; Dat[ 22]:=00000H; Dat[ 23]:=00000H;
  34.  Dat[ 24]:=00FF8H; Dat[ 25]:=03EAAH; Dat[ 26]:=0AAAAH; Dat[ 27]:=0AAA0H;
  35.  Dat[ 28]:=03FBEH; Dat[ 29]:=07EAAH; Dat[ 30]:=0AAAAH; Dat[ 31]:=0AAA8H;
  36.  Dat[ 32]:=03F9EH; Dat[ 33]:=02AAAH; Dat[ 34]:=0AAAAH; Dat[ 35]:=0AAA8H;
  37.  Dat[ 36]:=03FAEH; Dat[ 37]:=02A02H; Dat[ 38]:=0AAAAH; Dat[ 39]:=0AAA8H;
  38.  Dat[ 40]:=03FBEH; Dat[ 41]:=00000H; Dat[ 42]:=00000H; Dat[ 43]:=002A8H;
  39.  Dat[ 44]:=03C3EH; Dat[ 45]:=0AAAAH; Dat[ 46]:=0AAAAH; Dat[ 47]:=0A008H;
  40.  Dat[ 48]:=0387EH; Dat[ 49]:=0AAAAH; Dat[ 50]:=0AAAAH; Dat[ 51]:=0A808H;
  41.  Dat[ 52]:=03FFEH; Dat[ 53]:=0AAAAH; Dat[ 54]:=0AAAAH; Dat[ 55]:=0A8A8H;
  42.  Dat[ 56]:=02AAAH; Dat[ 57]:=002AAH; Dat[ 58]:=0AAA2H; Dat[ 59]:=0A808H;
  43.  Dat[ 60]:=02AA8H; Dat[ 61]:=002AAH; Dat[ 62]:=0AAA2H; Dat[ 63]:=0A808H;
  44.  Dat[ 64]:=02AA0H; Dat[ 65]:=00200H; Dat[ 66]:=02020H; Dat[ 67]:=008A8H;
  45.  Dat[ 68]:=02A80H; Dat[ 69]:=08200H; Dat[ 70]:=02020H; Dat[ 71]:=008A8H;
  46.  Dat[ 72]:=02A00H; Dat[ 73]:=00200H; Dat[ 74]:=02222H; Dat[ 75]:=0A8A8H;
  47.  Dat[ 76]:=0280AH; Dat[ 77]:=08022H; Dat[ 78]:=00000H; Dat[ 79]:=00800H;
  48.  Dat[ 80]:=0202AH; Dat[ 81]:=08022H; Dat[ 82]:=00000H; Dat[ 83]:=00800H;
  49.  Dat[ 84]:=02AAAH; Dat[ 85]:=0AAAAH; Dat[ 86]:=0AAAAH; Dat[ 87]:=0A800H;
  50.  Dat[ 88]:=02AAAH; Dat[ 89]:=0AAAAH; Dat[ 90]:=0AAAAH; Dat[ 91]:=0A800H;
  51.  Dat[ 92]:=02AAAH; Dat[ 93]:=0AAAAH; Dat[ 94]:=0AAAAH; Dat[ 95]:=0A800H;
  52.  Dat[ 96]:=00000H; Dat[ 97]:=00000H; Dat[ 98]:=00000H; Dat[ 99]:=00000H;
  53.  
  54.  (* Plane 2 *)
  55.  Dat[100]:=00000H; Dat[101]:=00000H; Dat[102]:=00000H; Dat[103]:=00000H;
  56.  Dat[104]:=00000H; Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=00000H;
  57.  Dat[108]:=00000H; Dat[109]:=04000H; Dat[110]:=00000H; Dat[111]:=00000H;
  58.  Dat[112]:=00000H; Dat[113]:=06000H; Dat[114]:=00000H; Dat[115]:=00000H;
  59.  Dat[116]:=00000H; Dat[117]:=05000H; Dat[118]:=00000H; Dat[119]:=00000H;
  60.  Dat[120]:=00000H; Dat[121]:=04000H; Dat[122]:=00000H; Dat[123]:=00000H;
  61.  Dat[124]:=00000H; Dat[125]:=04000H; Dat[126]:=00000H; Dat[127]:=00000H;
  62.  Dat[128]:=00040H; Dat[129]:=00000H; Dat[130]:=00000H; Dat[131]:=00000H;
  63.  Dat[132]:=00060H; Dat[133]:=00000H; Dat[134]:=00000H; Dat[135]:=00000H;
  64.  Dat[136]:=00050H; Dat[137]:=00000H; Dat[138]:=00000H; Dat[139]:=00000H;
  65.  Dat[140]:=00040H; Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;
  66.  Dat[144]:=003C0H; Dat[145]:=00000H; Dat[146]:=00000H; Dat[147]:=00000H;
  67.  Dat[148]:=00780H; Dat[149]:=00000H; Dat[150]:=00000H; Dat[151]:=00000H;
  68.  Dat[152]:=00000H; Dat[153]:=00000H; Dat[154]:=00000H; Dat[155]:=00000H;
  69.  Dat[156]:=00000H; Dat[157]:=00000H; Dat[158]:=00000H; Dat[159]:=00000H;
  70.  Dat[160]:=00000H; Dat[161]:=00000H; Dat[162]:=00000H; Dat[163]:=00000H;
  71.  Dat[164]:=00000H; Dat[165]:=00000H; Dat[166]:=00000H; Dat[167]:=00000H;
  72.  Dat[168]:=00000H; Dat[169]:=00000H; Dat[170]:=00000H; Dat[171]:=00000H;
  73.  Dat[172]:=00000H; Dat[173]:=00000H; Dat[174]:=00000H; Dat[175]:=00000H;
  74.  Dat[176]:=00000H; Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H;
  75.  Dat[180]:=00000H; Dat[181]:=00000H; Dat[182]:=00000H; Dat[183]:=00000H;
  76.  Dat[184]:=00000H; Dat[185]:=00000H; Dat[186]:=00000H; Dat[187]:=00000H;
  77.  Dat[188]:=00000H; Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;
  78.  Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H; Dat[195]:=00000H;
  79.  Dat[196]:=00000H; Dat[197]:=00000H; Dat[198]:=00000H; Dat[199]:=00000H;
  80.  
  81. END;
  82.  
  83. (* Brushbreite gegenüber IFF geändert! *)
  84.  
  85. WITH ImgPtr[DirH]^ DO         (* DirH *)
  86.  
  87.   (* Plane 1 *)
  88.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  89.  Dat[  4]:=0000FH; Dat[  5]:=0F800H; Dat[  6]:=00000H; Dat[  7]:=00000H;
  90.  Dat[  8]:=0003FH; Dat[  9]:=0BE00H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;
  91.  Dat[ 12]:=0003FH; Dat[ 13]:=09E00H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  92.  Dat[ 16]:=0003FH; Dat[ 17]:=0AE00H; Dat[ 18]:=00000H; Dat[ 19]:=00000H;
  93.  Dat[ 20]:=00001H; Dat[ 21]:=0BE00H; Dat[ 22]:=00000H; Dat[ 23]:=00000H;
  94.  Dat[ 24]:=00FF8H; Dat[ 25]:=03EAAH; Dat[ 26]:=0AAAAH; Dat[ 27]:=0AAA0H;
  95.  Dat[ 28]:=03FBEH; Dat[ 29]:=07EAAH; Dat[ 30]:=0AAAAH; Dat[ 31]:=0AAA8H;
  96.  Dat[ 32]:=03F9EH; Dat[ 33]:=02AAAH; Dat[ 34]:=0AAAAH; Dat[ 35]:=0AAA8H;
  97.  Dat[ 36]:=03FAEH; Dat[ 37]:=02BFEH; Dat[ 38]:=0AAAAH; Dat[ 39]:=0AAA8H;
  98.  Dat[ 40]:=03FBEH; Dat[ 41]:=00000H; Dat[ 42]:=00000H; Dat[ 43]:=002A8H;
  99.  Dat[ 44]:=03C3EH; Dat[ 45]:=0AAAAH; Dat[ 46]:=0AAAAH; Dat[ 47]:=0A0F8H;
  100.  Dat[ 48]:=0387EH; Dat[ 49]:=0AAAAH; Dat[ 50]:=0AAAAH; Dat[ 51]:=0A8F8H;
  101.  Dat[ 52]:=03FFEH; Dat[ 53]:=0AAAAH; Dat[ 54]:=0AAAAH; Dat[ 55]:=0A8A8H;
  102.  Dat[ 56]:=02AABH; Dat[ 57]:=0FEAAH; Dat[ 58]:=0AABEH; Dat[ 59]:=0A8F8H;
  103.  Dat[ 60]:=02AAFH; Dat[ 61]:=0FEAAH; Dat[ 62]:=0AABEH; Dat[ 63]:=0A8F8H;
  104.  Dat[ 64]:=02ABFH; Dat[ 65]:=0FFFFH; Dat[ 66]:=0FFFFH; Dat[ 67]:=0F8A8H;
  105.  Dat[ 68]:=02AFFH; Dat[ 69]:=0FFFFH; Dat[ 70]:=0FFFFH; Dat[ 71]:=0F8A8H;
  106.  Dat[ 72]:=02BFFH; Dat[ 73]:=0FFFFH; Dat[ 74]:=0FFFEH; Dat[ 75]:=0A8A8H;
  107.  Dat[ 76]:=02FFAH; Dat[ 77]:=0FFFFH; Dat[ 78]:=0FFFFH; Dat[ 79]:=0F800H;
  108.  Dat[ 80]:=03FEAH; Dat[ 81]:=0FFFFH; Dat[ 82]:=0FFFFH; Dat[ 83]:=0F800H;
  109.  Dat[ 84]:=02AAAH; Dat[ 85]:=0AAAAH; Dat[ 86]:=0AAAAH; Dat[ 87]:=0A800H;
  110.  Dat[ 88]:=02AAAH; Dat[ 89]:=0AAAAH; Dat[ 90]:=0AAAAH; Dat[ 91]:=0A800H;
  111.  Dat[ 92]:=02AAAH; Dat[ 93]:=0AAAAH; Dat[ 94]:=0AAAAH; Dat[ 95]:=0A800H;
  112.  Dat[ 96]:=00000H; Dat[ 97]:=00000H; Dat[ 98]:=00000H; Dat[ 99]:=00000H;
  113.  
  114.   (* Plane 2 *)
  115.  Dat[100]:=00000H; Dat[101]:=00000H; Dat[102]:=00000H; Dat[103]:=00000H;
  116.  Dat[104]:=00000H; Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=00000H;
  117.  Dat[108]:=00000H; Dat[109]:=04000H; Dat[110]:=00000H; Dat[111]:=00000H;
  118.  Dat[112]:=00000H; Dat[113]:=06000H; Dat[114]:=00000H; Dat[115]:=00000H;
  119.  Dat[116]:=00000H; Dat[117]:=05000H; Dat[118]:=00000H; Dat[119]:=00000H;
  120.  Dat[120]:=00000H; Dat[121]:=04000H; Dat[122]:=00000H; Dat[123]:=00000H;
  121.  Dat[124]:=00000H; Dat[125]:=04000H; Dat[126]:=00000H; Dat[127]:=00000H;
  122.  Dat[128]:=00040H; Dat[129]:=00000H; Dat[130]:=00000H; Dat[131]:=00000H;
  123.  Dat[132]:=00060H; Dat[133]:=00000H; Dat[134]:=00000H; Dat[135]:=00000H;
  124.  Dat[136]:=00050H; Dat[137]:=001FCH; Dat[138]:=00000H; Dat[139]:=00000H;
  125.  Dat[140]:=00040H; Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;
  126.  Dat[144]:=003C0H; Dat[145]:=00000H; Dat[146]:=00000H; Dat[147]:=000F0H;
  127.  Dat[148]:=00780H; Dat[149]:=00000H; Dat[150]:=00000H; Dat[151]:=000F0H;
  128.  Dat[152]:=00000H; Dat[153]:=00000H; Dat[154]:=00000H; Dat[155]:=00000H;
  129.  Dat[156]:=00001H; Dat[157]:=0FC00H; Dat[158]:=0001CH; Dat[159]:=000F0H;
  130.  Dat[160]:=00007H; Dat[161]:=0FC00H; Dat[162]:=0001CH; Dat[163]:=000F0H;
  131.  Dat[164]:=0001FH; Dat[165]:=0FDFFH; Dat[166]:=0DFDFH; Dat[167]:=0F000H;
  132.  Dat[168]:=0007FH; Dat[169]:=07DFFH; Dat[170]:=0DFDFH; Dat[171]:=0F000H;
  133.  Dat[172]:=001FFH; Dat[173]:=0FDFFH; Dat[174]:=0DDDCH; Dat[175]:=00000H;
  134.  Dat[176]:=007F0H; Dat[177]:=07FDDH; Dat[178]:=0FFFFH; Dat[179]:=0F000H;
  135.  Dat[180]:=01FC0H; Dat[181]:=07FDDH; Dat[182]:=0FFFFH; Dat[183]:=0F000H;
  136.  Dat[184]:=00000H; Dat[185]:=00000H; Dat[186]:=00000H; Dat[187]:=00000H;
  137.  Dat[188]:=00000H; Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;
  138.  Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H; Dat[195]:=00000H;
  139.  Dat[196]:=00000H; Dat[197]:=00000H; Dat[198]:=00000H; Dat[199]:=00000H;
  140.  
  141. END;
  142. END AmokDir.
  143.